Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    MsgBox Me.Name & "" & Sh.Name & "" & Target.SubAddress & "cWsC"
End Sub
